home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / programming / e / lsestuff / test2.e < prev    next >
Text File  |  1999-11-29  |  1KB  |  43 lines
  1. MODULE '*dynamic_array'
  2.  
  3. PROC main()
  4.    DEF da:PTR TO dynamic_array, e, v
  5.    NEW da
  6.    da.dynamic_array(DAVS_CHAR, 1024)
  7.    WriteF('dynamic array of char, allocvalue=1024\n')
  8.    WriteF('setting elements 512 times with values [0-255]\n')
  9.    WriteF('thats 128 000 set():s ! \n')
  10.    SystemTagList('date', NIL)
  11.    FOR v:=0 TO 255
  12.       FOR e:=0 TO 99
  13.          da.set(e, v)
  14.          da.set(e, v)
  15.          da.set(e, v)
  16.          da.set(e, v)
  17.          da.set(e, v)
  18.       ENDFOR
  19.    ENDFOR
  20.    SystemTagList('date', NIL)
  21.    WriteF('finnished!\n')
  22.    END da
  23.    NEW da
  24.    da.dynamic_array(DAVS_INT, 1024)
  25.    WriteF('dynamic array of INT, allocvalue=1024\n')
  26.    WriteF('setting elements 500 times with values [0-255]\n')
  27.    WriteF('thats 128 000 set():s ! \n')
  28.    SystemTagList('date', NIL)
  29.    FOR v:=0 TO 255
  30.       FOR e:=0 TO 99
  31.          da.set(e, v)
  32.          da.set(e, v)
  33.          da.set(e, v)
  34.          da.set(e, v)
  35.          da.set(e, v)
  36.       ENDFOR
  37.    ENDFOR
  38.    SystemTagList('date', NIL)
  39.    WriteF('finnished!\n')
  40.    END da
  41. ENDPROC
  42.  
  43.